﻿Imports tiendaRegalos

Public Class InsertarPedido

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim negocio As New PedidoNegocio()

        Try
            Dim modelo = negocio.inserPedido(Me.txtIdUsuario.Text, Me.txtFePedido.Text, Me.txtEstado.Text, Me.txtTotal.Text)
            MsgBox("USTED SE HA REGISTRADO SUE PEDIDEICHON!!!")
            'Assert.AreEqual(13, modelo.idUsuario)

        Catch ex As DAOExcepcion
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.txtIdUsuario.Text = ""
        Me.txtFePedido.Text = ""
        Me.txtEstado.Text = ""
        Me.txtTotal.Text = ""
    End Sub

    Private Sub txtFePedido_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtFePedido.TextChanged

    End Sub

    Private Sub txtIdUsuario_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIdUsuario.TextChanged

    End Sub
End Class